home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / UNIXTOOL / MEMACS / Cmd / Bufdel < prev    next >
Text File  |  1991-06-15  |  1KB  |  53 lines
  1. ;    Apperently this lets you selectively delete buffers
  2. ;    from inside the editor.
  3.  
  4. set %oldpflag $popflag
  5. set $popflag FALSE
  6. set %obuff $cbufname
  7. set $discmd FALSE
  8. list-buffers
  9. select-buffer "[List]"
  10. delete-mode view
  11. end-of-file
  12. set %lline $curline
  13. beginning-of-file
  14. 3 next-line
  15. !while &less $curline %lline
  16.     beginning-of-line
  17.     23 forward-character
  18.     insert-string "=>"
  19.     update-screen
  20.     print "Kill this buffer? (N/Y) "
  21.     set %resp &upper >key
  22.     2 delete-previous-character
  23.     !if &sequal "Y" %resp
  24.         set-mark
  25.         beginning-of-line
  26.         36 forward-character
  27.          backward-character    
  28.         !while &equal $curchar 32
  29.              backward-character    
  30.         !endwhile        
  31.         forward-character
  32.         open-line
  33.         exchange-point-and-mark
  34.         set %bname #[List]
  35.         !if ¬ &sequal %bname %obuff
  36.             delete-buffer %bname
  37.         !endif
  38.         delete-previous-character
  39.         beginning-of-line
  40.         4 forward-character
  41.         !if ¬ &sequal %bname %obuff
  42.             overwrite-string "DELETED"
  43.         !else
  44.             overwrite-string "Buffer is being displayed."
  45.         !endif
  46.     !endif
  47.     next-line
  48. !endwhile
  49. set $discmd TRUE
  50. delete-window
  51. select-buffer %obuff
  52. set $popflag %oldpflag
  53.